home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / sviluppo / svilupp2 / prog_bar.lha / prog_bar / Modula-2 / prog_bar.def < prev    next >
Text File  |  1997-01-12  |  6KB  |  135 lines
  1. DEFINITION FOR C MODULE prog_bar;
  2.  
  3. FROM Utility IMPORT TAG_USER, TagItemPtr, Tag;
  4.  
  5. FROM Intuition IMPORT WindowPtr, IntuiText;
  6.  
  7. FROM Graphics IMPORT RastPortPtr;
  8.  
  9. FROM GadTools IMPORT VisualInfoPtr;
  10.  
  11.  
  12. CONST PB_Dummy =           TAG_USER+60000H;
  13.  
  14. (* Tags for CreateProgBar() and SetProgBarAttrs() *)
  15.  
  16. CONST PB_LeftEdge =        PB_Dummy+1;         (* X pos *)
  17. CONST PB_TopEdge =         PB_Dummy+2;         (* Y pos *)
  18. CONST PB_Width =           PB_Dummy+3;         (* Width *)
  19. CONST PB_Height =          PB_Dummy+4;         (* Height *)
  20. CONST PB_Direction =       PB_Dummy+5;         (* Direction of Expansion *)
  21. CONST PB_BarColour =       PB_Dummy+6;         (* Bar colour *)
  22. CONST PB_BarBackColour =   PB_Dummy+7;         (* Bar Background colour *)
  23. CONST PB_BarSize =         PB_Dummy+8;         (* Value of full Bar *)
  24. CONST PB_BarValue =        PB_Dummy+9;         (* Value of filled Bar *)
  25. CONST PB_BorderType =      PB_Dummy+10;        (* Type of Border *)
  26.  
  27. CONST PB_TextMode =        PB_Dummy+11;        (* Actual Value or %age *)
  28. CONST PB_TextPosition =    PB_Dummy+12;        (* Position to display text *)
  29. CONST PB_TextColour =      PB_Dummy+13;        (* Text Colour *)
  30. CONST PB_TextBackColour =  PB_Dummy+14;        (* Text BackGround Colour *)
  31. CONST PB_TextFont =        PB_Dummy+15;        (* Font for text (TextAttrPtr) *)
  32.  
  33. (* Options for PB_Direction *)
  34.  
  35. CONST PBDE_RIGHT =         0;        (* From Left to Right  ( default ) *)
  36. CONST PBDE_LEFT =          1;        (* From Right to Left *)
  37. CONST PBDE_UP =            2;        (* From Bottom to Top *)
  38. CONST PBDE_DOWN =          3;        (* From Top to Bottom *)
  39.  
  40. (* Options for PB_BorderType *)
  41.  
  42. CONST PBBT_NONE =          10;       (* No Border *)
  43. CONST PBBT_PLAIN =         11;       (* Plain Black Box  ( default )*)
  44. CONST PBBT_RECESSED =      12;       (* Recessed Box *)
  45. CONST PBBT_RAISED =        13;       (* Raised Box *)
  46. CONST PBBT_RIDGE =         14;       (* Raised Ridge *)
  47.  
  48. (* Options for Text Mode *)
  49.  
  50. CONST PBTM_NONE =          20;       (* No Text  ( default ) *)
  51. CONST PBTM_PERCENT =       21;       (* Display Value as a %age *)
  52. CONST PBTM_VALUE =         22;       (* Display Value as "Value/Total" *)
  53.  
  54. (* Options for Text Position *)
  55.  
  56. CONST PBTP_BELOW =         30;       (* Text centred below Bar  ( default ) *)
  57. CONST PBTP_ABOVE =         31;       (* Text centred above Bar *)
  58. CONST PBTP_LEFT =          32;       (* Text to left of Bar *)
  59. CONST PBTP_RIGHT =         33;       (* Text to right of Bar *)
  60. CONST PBTP_CENTRE =        34;       (* Text centred inside Bar *)
  61.  
  62. (* Structure Definition *)
  63.  
  64. TYPE
  65.    PBarPtr = POINTER TO PBar;
  66.    PBar = RECORD
  67.  
  68.    (* The following fields are set up when the Progress Bar is created.
  69.       They are simply quick reference points for the information needed
  70.       to display the Progress Bar.  DO NOT CHANGE THE VALUES STORED HERE. *)
  71.  
  72.    Wnd :               WindowPtr;      (* Window to render Bar in *)
  73.    RPort :             RastPortPtr;    (* RastPort used for rendering *)
  74.    Vis_Info :          VisualInfoPtr;  (* VisualInfo for Bar *)
  75.    Bar_IText :         IntuiText;      (* Used to display the Text *)
  76.    Bar_Text :          ARRAY [0..15] OF CHAR;     (* Used to store the Text *)
  77.  
  78.    (* The following fields are used to store the current settings for the
  79.       Progress Bar.  They should not be changed directly, but can be altered
  80.       using SetProgBarAttrs() *)
  81.  
  82.    LeftEdge :          CARDINAL;       (* Column Number for Left Edge *)
  83.    TopEdge :           CARDINAL;       (* Row Number for Top Edge *)
  84.    Width :             CARDINAL;       (* Total Width  ( including Border ) *)
  85.    Height :            CARDINAL;       (* Total Height ( including Border ) *)
  86.  
  87.    Direction :         SHORTCARD;      (* Direction for Bar Expansion *)
  88.  
  89.    Bar_Colour :        SHORTCARD;      (* Pen Number for rendering Bar *)
  90.    Bar_Background :    SHORTCARD;      (* Pen Number for Bar Background *)
  91.    Bar_Size :          CARDINAL;       (* Value for full bar *)
  92.    Bar_Value :         CARDINAL;       (* Current Value for Bar *)
  93.  
  94.    Border_Type :       SHORTCARD;      (* Type of Border *)
  95.  
  96.    Text_Mode :         SHORTCARD;      (* Mode for text display *)
  97.    Text_Position :     SHORTCARD;      (* Placement for Text *)
  98.  
  99.    (* The following fields are working variables for the functions and
  100.       should not be used or altered by your program. *)
  101.  
  102.    B_LeftEdge :        CARDINAL;       (* LeftEdge of Bar ( No Border ) *)
  103.    B_RightEdge :       CARDINAL;       (* RightEdge of Bar ( No Border ) *)
  104.    B_TopEdge :         CARDINAL;       (* TopEdge of Bar ( No Border ) *)
  105.    B_BottomEdge :      CARDINAL;       (* BottomEdge of Bar ( No Border ) *)
  106.    B_Length :          CARDINAL;       (* Bar Length in pixels ( No Border ) *)
  107.    B_Value :           CARDINAL;       (* Number of pixels to fill *)
  108.    B_Percent :         SHORTCARD;      (* Percentage of Bar filled *)
  109.    T_Width :           CARDINAL;       (* Width of text in pixels *)
  110.    T_Height :          CARDINAL;       (* Height of text in pixels *)
  111.    MT_Width :          CARDINAL;       (* Max Text Width in Pixels *)
  112.    MT_Left :           CARDINAL;       (* Left coordinate of longest test *)
  113.    MT_Top :            CARDINAL;       (* Top coordinate of longest text *)
  114.    END;
  115.  
  116. (* Function Prototypes *)
  117.  
  118. PROCEDURE CreateProgBarA ( Wnd : WindowPtr;
  119.                            Left, Top, Width, Height, Size : CARDINAL;
  120.                            taglist : TagItemPtr ) : PBarPtr;
  121. PROCEDURE CreateProgBar ( Wnd : WindowPtr;
  122.                           Left, Top, Width, Height, Size : CARDINAL;
  123.                           First_Tag : Tag; .. ) : PBarPtr;
  124. PROCEDURE SetProgBarAttrsA ( PB : PBarPtr; taglist : TagItemPtr );
  125. PROCEDURE SetProgBarAttrs ( PB : PBarPtr; First_Tag : Tag; .. );
  126. PROCEDURE FreeProgBar ( PB : PBarPtr );
  127. PROCEDURE RefreshProgBar ( PB : PBarPtr );
  128. PROCEDURE UpdateProgBar ( PB : PBarPtr; Value : CARDINAL );
  129. PROCEDURE ResetProgBar ( PB : PBarPtr );
  130. PROCEDURE ClearProgBar ( PB : PBarPtr );
  131. PROCEDURE ClearBar ( PB : PBarPtr );
  132. PROCEDURE ClearText ( PB : PBarPtr );
  133.  
  134. END prog_bar.
  135.